10 REM--AHOY--MAR ISSUE--RANDOM FILES---PROG PAGE 37
100 OPEN15,8,15,"I"
110 OPEN5,8,5,"#"
120 PRINT"[147]ENTERE TRACK,SECTOR(ENTER 0,0 TO END):"
130 INPUTT,S
135 IFT=0ANDS=0THEN300
140 IFT<1ORT>35THENPRINT"TRACK MUST BE FROM 1 TO 35":GOTO120
150 IFS<0ORS>20THENPRINT"SECTOR MUST BE FROM 0 TO 20":GOTO120
160 IFT>30ANDS>16THENPRINT"TRACK"T"CONTAINS SECTORS 0 TO 16":GOTO120
170 IFT>24ANDS>17THENPRINT"TRACK"T"CONTAINS SECTORS 0 TO 17":GOTO120
180 IFT>17ANDS>18THENPRINT"TRACK"T"CONTAINS SECTORS 0 TO 18":GOTO120
200 REM ** READ DATA FROM BLOCK **
210 PRINT#15,"U1:"5;0;T;S
220 FORX=0TO255:GET#5,A$:POKE212,1
225 IFASC(A$+CHR$(0))<32THENPOKE212,0:PRINT"";:A$=CHR$(ASC(A$+CHR$(0))+64)
230 PRINTA$;:POKE212,0:PRINT"[146]";:NEXT
240 POKE212,0:PRINT:PRINT"DISK STATUS:"
250 INPUT#15,A,B$,C,D:PRINTA,B$,C,D
260 PRINT"HIT A KEY TO CONTINUE"
270 GETA$:IFA$=""THEN270
280 GOTO120
300 CLOSE5:CLOSE15